home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
MULTISYS.PPS
< prev
next >
Wrap
Text File
|
1996-07-29
|
662b
|
23 lines
#ppe ; force compile to a .PPE
#libpath ..\..\lib ; set lib path
#use menu ; using the menu library
Int Choice
Choice = Menu("MULTISYS.PCB", 12, 2, 1)
Select Case Choice
Case 0
End
Case 1
Kbdstuff "E" + Chr(13) + "LONE RUNNER" + CHR(13) + "COMMENT (" + String(PcbNode()) + ") " + Left(String(Time()),5) + CHR(13) + "R" + Chr(13) + "N" + Chr(13) + "Y" + Chr(13)
End
Case 2
Kbdstuff "E" + Chr(13) + "NUMBER SIX" + CHR(13) + "COMMENT (" + String(PcbNode()) + ") " + Left(String(Time()),5) + CHR(13) + "R" + Chr(13) + "N" + Chr(13) + "Y" + Chr(13)
End
End Select
End